inherited crdStoki: TcrdStoki
  Left = 545
  Top = 417
  VertScrollBar.Range = 0
  AutoSize = True
  BorderIcons = [biSystemMenu, biMinimize, biMaximize, biHelp]
  BorderStyle = bsDialog
  Caption = #1057#1086#1079#1076#1072#1085#1080#1077' '#1089#1090#1086#1082#1086#1074#1086#1081' '#1089#1074#1103#1079#1080
  ClientHeight = 203
  ClientWidth = 616
  OldCreateOrder = True
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  inherited Panel1: TPanel
    Top = 176
    Width = 616
    inherited BitBtn1: TBitBtn
      Left = 409
      ModalResult = 1
    end
    inherited BitBtn2: TBitBtn
      Left = 511
      ModalResult = 2
    end
  end
  inherited ToolBar1: TToolBar
    Width = 616
    inherited ToolButton2: TToolButton
      Visible = False
    end
  end
  object Panel2: TPanel [2]
    Left = 0
    Top = 29
    Width = 616
    Height = 101
    Align = alClient
    BevelOuter = bvNone
    TabOrder = 2
    object GroupBox2: TGroupBox
      Left = 0
      Top = 0
      Width = 307
      Height = 101
      Align = alLeft
      Caption = ' '#1059#1089#1083#1091#1075#1072'-'#1080#1089#1090#1086#1095#1085#1080#1082' '
      Constraints.MinHeight = 98
      TabOrder = 0
      object Label1: TLabel
        Left = 16
        Top = 56
        Width = 86
        Height = 13
        Caption = #1053#1072#1079#1074#1072#1085#1080#1077' '#1091#1089#1083#1091#1075#1080
      end
      object Label2: TLabel
        Left = 16
        Top = 16
        Width = 162
        Height = 13
        Caption = #1055#1086#1089#1090#1072#1074#1097#1080#1082'('#1090#1086#1083#1100#1082#1086' '#1089' '#1090#1072#1088#1080#1092#1072#1084#1080')'
      end
      object DBEditEh1: TDBEditEh
        Left = 12
        Top = 72
        Width = 290
        Height = 19
        AlwaysShowBorder = True
        DataField = 'NAME'
        DataSource = sprServices.dscRefer
        EditButtons = <>
        Enabled = False
        Flat = True
        TabOrder = 0
        Visible = True
      end
      object dblOrgsSrc: TDBLookupComboboxEh
        Left = 12
        Top = 32
        Width = 290
        Height = 19
        AlwaysShowBorder = True
        DataField = 'SUPPLIER_ID_SRC'
        DataSource = sprServices.dscStoki
        EditButtons = <>
        Flat = True
        KeyField = 'ID'
        ListField = 'NAME'
        ListSource = dscOrgsSrc
        TabOrder = 1
        Visible = True
        OnChange = dblOrgsSrcChange
      end
    end
    object GroupBox1: TGroupBox
      Left = 307
      Top = 0
      Width = 309
      Height = 101
      Align = alClient
      Caption = ' '#1059#1089#1083#1091#1075#1072'-'#1087#1088#1080#1077#1084#1085#1080#1082' '
      Constraints.MinWidth = 307
      TabOrder = 1
      object Label3: TLabel
        Left = 16
        Top = 56
        Width = 280
        Height = 13
        Caption = #1053#1072#1079#1074#1072#1085#1080#1077' '#1091#1089#1083#1091#1075#1080'('#1090#1086#1083#1100#1082#1086' '#1089#1090#1086#1082#1086#1074#1099#1077' '#1091#1089#1083#1091#1075#1080' '#1087#1086#1089#1090#1072#1074#1097#1080#1082#1072')'
      end
      object Label4: TLabel
        Left = 16
        Top = 16
        Width = 239
        Height = 13
        Caption = #1055#1086#1089#1090#1072#1074#1097#1080#1082'('#1090#1086#1083#1100#1082#1086' '#1080#1084#1077#1102#1097#1080#1077' '#1089#1090#1086#1082#1086#1074#1099#1077' '#1091#1089#1083#1091#1075#1080')'
      end
      object dblOrgsDst: TDBLookupComboboxEh
        Left = 12
        Top = 32
        Width = 290
        Height = 19
        AlwaysShowBorder = True
        DataField = 'SUPPLIER_ID_DST'
        DataSource = sprServices.dscStoki
        Enabled = False
        EditButtons = <>
        Flat = True
        KeyField = 'ID'
        ListField = 'NAME'
        ListSource = dscOrgsDst
        TabOrder = 0
        Visible = True
        OnChange = dblOrgsDstChange
      end
      object dblServDst: TDBLookupComboboxEh
        Left = 12
        Top = 72
        Width = 290
        Height = 19
        AlwaysShowBorder = True
        DataField = 'SRV_DST'
        DataSource = sprServices.dscStoki
        Enabled = False
        EditButtons = <>
        Flat = True
        KeyField = 'ID'
        ListField = 'NAME'
        ListSource = dscSrvDest
        TabOrder = 1
        Visible = True
      end
    end
  end
  object GroupBox3: TGroupBox [3]
    Left = 0
    Top = 130
    Width = 616
    Height = 46
    Align = alBottom
    Caption = ' '#1050#1086#1101#1092#1092#1080#1094#1080#1077#1085#1090' '#1091#1089#1091#1096#1082#1080' '#1089#1090#1086#1082#1086#1074' '
    TabOrder = 3
    object DBEditEh2: TDBEditEh
      Left = 12
      Top = 18
      Width = 121
      Height = 19
      AlwaysShowBorder = True
      DataField = 'REDUCT_KOEF'
      DataSource = sprServices.dscStoki
      EditButtons = <>
      Flat = True
      TabOrder = 0
      Visible = True
    end
  end
  inherited ActionList1: TActionList
    Left = 236
    Top = 0
    inherited aSave: TAction
      OnExecute = aSaveExecute
    end
    inherited aCancel: TAction
      OnExecute = aCancelExecute
    end
  end
  inherited PropStorage: TPropStorageEh
    Section = 'crdStoki'
    StoredProps.Strings = (
      '<P>.Left'
      '<P>.Top'
      '<P>.WindowState')
  end
  object dsOrgsDst: TpFIBDataSet
    SelectSQL.Strings = (
      'select id,name from v_supplier supp'
      'where exists('
      '    select 1 from services s, vw_straits vw'
      '    where s.group_id <> (select group_id from services s1 '
      '                           where s1.id = :service_id)'
      '      and s.group_id > 0'
      '      and vw.service_id = s.id'
      '      and vw.code = '#39'METERSTOK'#39
      '      and exists(select 1 from rtariffs rt '
      
        '          where rt.service_id = s.id and rt.supplier_id = supp.i' +
        'd)'
      ')')
    AllowedUpdateKinds = []
    Transaction = sprServices.trLists
    Database = MAINDM.pMainDatabase
    UpdateTransaction = sprServices.trRefer
    Left = 484
    Top = 33
    object dsOrgsDstID: TFIBIntegerField
      FieldName = 'ID'
    end
    object dsOrgsDstNAME: TFIBStringField
      FieldName = 'NAME'
      Size = 60
      EmptyStrToNull = True
    end
  end
  object dscOrgsDst: TDataSource
    DataSet = dsOrgsDst
    Left = 552
    Top = 33
  end
  object dsOrgsSrc: TpFIBDataSet
    SelectSQL.Strings = (
      'select id,name from v_supplier supp'
      
        'where exists(select 1 from rtariffs rt where rt.supplier_id = su' +
        'pp.id'
      '  and rt.service_id = :service_id)')
    Transaction = sprServices.trLists
    Database = MAINDM.pMainDatabase
    UpdateTransaction = sprServices.trRefer
    Left = 164
    Top = 49
    object dsOrgsSrcID: TFIBIntegerField
      FieldName = 'ID'
    end
    object dsOrgsSrcNAME: TFIBStringField
      FieldName = 'NAME'
      Size = 60
      EmptyStrToNull = True
    end
  end
  object dscOrgsSrc: TDataSource
    DataSet = dsOrgsSrc
    Left = 232
    Top = 49
  end
  object dsSrvDest: TpFIBDataSet
    SelectSQL.Strings = (
      'select distinct s.id, s.name from services s, vw_straits vw'
      
        '    where s.group_id <> (select group_id from services s1 where ' +
        's1.id = :service_id)'
      '      and s.group_id > 0'
      '      and vw.service_id = s.id'
      '      and vw.code = '#39'METERSTOK'#39
      '      and not exists(select 1 from serv_to_serv ss'
      '            where ss.srv_src = s.id and ss.srv_dst = :service_id'
      
        '              and ss.supplier_id_src = :supp_src and ss.supplier' +
        '_id_dst = :supp_dst)'
      '  order by s.group_id, s.name')
    Transaction = sprServices.trLists
    Database = MAINDM.pMainDatabase
    UpdateTransaction = sprServices.trRefer
    Left = 488
    Top = 81
    object dsSrvDestID: TFIBIntegerField
      FieldName = 'ID'
    end
    object dsSrvDestNAME: TFIBStringField
      FieldName = 'NAME'
      Size = 120
      EmptyStrToNull = True
    end
  end
  object dscSrvDest: TDataSource
    DataSet = dsSrvDest
    Left = 556
    Top = 81
  end
end
